<%@ LANGUAGE="VBSCRIPT" %>
<%'  ------------------------------------------------------------
  '  debug.asp 
  '  ------------------------------------------------------------
  '  VCS INFO:
  '  
  '  $Revision:   1.2  $
  '  $Date:   04 Dec 1997 21:04:30  $
  '  $Author:   shsieh  $
  '  $Workfile:   debug.asp  $
  '  ------------------------------------------------------------
  '  All Rights Reserved.  Copyright (c) 1988-1998 FileNET Corp.
  '  ------------------------------------------------------------
  '%>

<html>
<head>
   <title>debugging information</title>
</head>
<body>
   <h1>Debugging information from MS IIS</h1>
   <p>
       <em>In all tables, 'Name' is the name of the variable or 
       parameter, 'Value' is the raw parameter value, and 
       'Encoded Value' is the parameter's 
       value encoded for display in HTML</em>
   </p>
   <h2>Server Variables</h2>

   <!--
     -  SECTION:  Print the Request's Server Variables
     -
     -->
   
   <table width=100% border=2>
   <tr>
   <td><Strong>Name</strong></td>
   <td><strong>Value</strong></td>
   <td><strong>Encoded Value</strong></td>
   </tr>

   <% For Each x In Request.ServerVariables %>
   
   <tr>
      <td> <%= x %> </td> 
      <td> <%= Request.ServerVariables(x) %> &nbsp; </td>
      <td> <%= Server.HTMLEncode(Request.ServerVariables(x)) %> &nbsp; </td>
   </tr>
   <% Next %> 
   </table>

   <!--
     -  SECTION:  Print the URL Parameters from the QUERY_STRING
     -
     -  NOTE:  this only applies if the request was GET.
     -
     -->

   <% if Request.ServerVariables("REQUEST_METHOD") = "GET" then %>
   <h2>URL Parameters on Query String</h2>
   <% if 0 = Len(Request.ServerVariables("QUERY_STRING")) then %>
   <strong>none</strong>
   <% else  %>
      <table width=100% border=2>
       <tr>
       <td><strong>Name</strong></td>
       <td><strong>Value</strong></td>
       <td><strong>Encoded Value</strong></td>
       </tr>
              
      <% For Each x In Request.QueryString %>
      <tr>
          <td> <%= x %> </td> 
          <td> <%= Request.QueryString(x) %> &nbsp; </td>
          <td> <%= Server.HTMLEncode(Request.QueryString(x)) %> &nbsp; </td>
      </tr>
      <% Next %> 
   </table>
   <% end if %>   
   <% end if %>

   <!--
     -  SECTION:  Print the URL Parameters from the form
     -
     -  NOTE:  this only applies if the request was POST.
     -
     -->

   <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then %>
   <h2>URL Parameters on Query String</h2>
   <% if Request.ServerVariables("CONTENT_LENGTH") = 0 then %>
   <strong>none</strong>
   <% else  %>
      <table width=100% border=2>
       <tr>
       <td><strong>Name</strong></td>
       <td><strong>Value</strong></td>
       <td><strong>Encoded Value</strong></td>
       </tr>
              
      <% For Each x In Request.Form %>
      <tr>
          <td> <%= x %> </td> 
          <td> <%= Request.Form(x) %> &nbsp; </td>
          <td> <%= Server.HTMLEncode(Request.Form(x)) %> &nbsp; </td>
      </tr>
      <% Next %> 
   </table>
   <% end if %>   
   <% end if %>

</body>
</html>




